﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class DetalleLoteBL

    Private _DetalleLote_DA As New DetalleLoteDA

    Public Function List_Id(ByVal Id As Integer) As DataTable
        Return _DetalleLote_DA.List_Id(Id)
    End Function

    Public Function List() As DataTable
        Return _DetalleLote_DA.List
    End Function

    Public Function List_IdLote(ByVal Id As Integer) As DataTable
        Return _DetalleLote_DA.List_IdLote(Id)
    End Function

    Public Function GetList() As DataTable
        Return _DetalleLote_DA.GetList
    End Function

    Public Function Add(ByVal _detallelote_BE As DetalleLoteBE) As String
        If _DetalleLote_DA.Add(_detallelote_BE) = "OK" Then
            Return "OK"
        End If
    End Function

    Public Function Edit(ByVal _detallelote_BE As DetalleLoteBE) As String
        If _DetalleLote_DA.Edit(_detallelote_BE) = "OK" Then
            Return "OK"
        End If
    End Function

    Public Function Delete(ByVal Id As Integer) As String
        If _DetalleLote_DA.Delete(Id) = "OK" Then
            Return "OK"
        End If
    End Function

    Public Function getIdLastRecord() As Integer
        Return _DetalleLote_DA.getIdLastRecord
    End Function

End Class
